0 REM PHRASE SPLITTERS (AUG 25/84)    :
1 :
2 REM 0 STATEMENTS, 2 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 11
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM F/FIRST$(   FIRST    3330    028
8 REM F/BF$(      BF       3334    029
9 :
10 REM ================================
11 :
606 .ASC "FIRST$[168]BF$[168]"
1606 .WORD FIRST-1,BF-1
3330 FIRST SEC
3332 .BYTE $24
3334 BF CLC
3336 PHP
3338 JSR $AEF4
3340 JSR $B6A3
3342 STA T3
3344 TXA
3346 PHA
3348 TYA
3350 PHA
3352 LDA T3
3354 JSR $B47D
3356 PLA
3358 STA $23
3360 PLA
3362 STA $22
3364 LDY #$FF
3366 STY T4
3368 FBF1 INY
3370 FBF2 CPY T3
3372 BEQ FBF4
3374 LDA ($22),Y
3376 AND #$7F
3378 CMP #" "
3380 BEQ FBF3
3382 LDA #0
3384 STA T4
3386 BEQ FBF1
3388 FBF3 BIT T4
3390 BPL FBF4
3392 DEC T3
3394 INC $22
3396 BNE FBF2
3398 INC $23
3400 BNE FBF2
3402 FBF4 PLP
3404 BCS FBF5
3406 TYA
3408 PHA
3410 SEC
3412 SBC T3
3414 EOR #$FF
3416 CLC
3418 ADC #1
3420 TAY
3422 PLA
3424 ADC $22
3426 STA $22
3428 BCC FBF5
3430 INC $23
3432 FBF5 TYA
3434 JSR $B47D
3436 TAY
3438 FBF6 DEY
3440 CPY #$FF
3442 BEQ FBF7
3444 LDA ($22),Y
3446 STA ($62),Y
3448 BCC FBF6
3450 FBF7 JMP $B4CA
3452 ;